home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
prog
/
lb09c.zip
/
GETCHAR.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-02-21
|
207b
|
12 lines
'read testfile.txt and display each item
'on its own line
OPEN"TESTFILE" FOR INPUT AS #IN
10 IF EOF(#IN) <> 0 THEN [end]
PRINT INPUT$( #IN, 1 );
GOTO 10
[end]
CLOSE #IN